(define-ccl-program): Move `doc-string' decl down.

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index bd4d7373b2f3ef53d03904600a897bc58726bc22..667092761db48691a1eed5ee605b84b93c2fe4fd 100644 (file)
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1304,7 +1304,6 @@ Optional arg VECTOR is a compiled CCL code of the CCL program."
 
 ;;;###autoload
 (defmacro define-ccl-program (name ccl-program &optional doc)
-  (declare (doc-string 3))
   "Set NAME the compiled code of CCL-PROGRAM.
 
 CCL-PROGRAM has this form:
@@ -1515,6 +1514,7 @@ MAP-IDs := MAP-ID ...
 MAP-SET := MAP-IDs | (MAP-IDs) MAP-SET
 MAP-ID := integer
 "
+  (declare (doc-string 3))
   `(let ((prog ,(unwind-protect
                    (progn
                      ;; To make ,(charset-id CHARSET) works well.